Interactive Media Design Review 1999/Interactive Media Design Review 1999.iso/pc/Demos/Bombardier_PC/BSCRIPTS.CST/00028_Script_map rollovers

Text File | 1999-04-25 | 2KB | 67 lines

-- ⌐ 1998 @radical.media, inc. & Concurrent New Media Group, L.L.C.
-- Developed for Bombardier, Inc.
--
-- All programming developed by:
-- Robert Fabricant, Valerie Valoueva, Ossi Shaked,
-- Henry Sauvageot, Chris Howell & Chris Girand
--
-- Use of this code by parties other than @radical.media, inc. or their
--agents
-- without the express written consent of @radical.media, inc. AND Concurrent
-- New Media Group, L.L.C. is strictly prohibited.
------------------------------------------------------
-------*This script is not used in this version of the movie*----------

property Rimage,Dimage,image,sprt, pair

on getPropertyDescriptionList
  set description=[:]

  addProp description,#sprt,[#default:"",#format:#integer, ¼
  #comment:"The sprite number "]

  addProp description,#pair,[#default:"",#format:#integer, ¼
  #comment:"The city pair sprite number "]

  return description
end

on getbehaviorDescription
  return "changes the image on rollover"
end


on mouseEnter me
  global gSub
  if gSub <> sprt then
    set the castnum of sprite sprt to the castnum of sprite sprt +1
    if pair<>0 then
      set the castnum of sprite pair to the castnum of sprite pair +1
    end if
    updatestage
  end if
end

on mouseleave
  global gSub
  if gSub <> sprt then
    set the castnum of sprite sprt to the castnum of sprite sprt -1
    if pair<>0 then
      set the castnum of sprite pair to the castnum of sprite pair -1
    end if
    updatestage
  end if
end

on mouseup me
  global gSub,gSImage,gMode

  set gMode="menu"

  if gSub <> sprt then
    set gSub = sprt
  end if
  pass
end